home *** CD-ROM | disk | FTP | other *** search
/ Scena PL EXE / scenapl-1995-exe.iso / torba szopy / inne / nontsc / startup.i < prev   
Text File  |  1995-10-19  |  597b  |  30 lines
  1. ; One of the most important includes for a professional programmed tool
  2. ; linked with it. Fully Symbol-free and assemblerized by T. Stocksmeier.
  3. ; Link BEFORE your program and call your first program label 'Programm'.
  4. ; THIS INCLUDE IS NOT TAKEN FROM ANY AUG-BOOK OR ELSE. I WROTE IT MYSELF!
  5.  
  6. Startup
  7.  move.l 4,a6
  8.  move.l #0,a1
  9.  jsr -294(a6)
  10.  move.l d0,a5
  11.  move.l 172(a5),d0
  12.  tst.l d0
  13.  beq FromWB
  14.  bsr Programm
  15.  rts
  16. FromWB
  17.  lea 92(a5),a0
  18.  jsr -384(a6)
  19.  lea 92(a5),a0
  20.  jsr -372(a6)
  21.  lea WBMsg(PC),a0
  22.  move.l d0,(a0)
  23.  bsr Programm
  24.  jsr -132(a6)
  25.  move.l WBMsg(PC),a1
  26.  jsr -378(a6)
  27.  rts
  28. WBMsg ds.l 1
  29.  
  30.